home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 July / macformat-026.iso / mac / Demos / Other / Zargon Zoo Demo / Pages / Shared.Dir / 00902.ls < prev    next >
Encoding:
Text File  |  1994-08-06  |  438 b   |  23 lines
  1. on wordListOn
  2.   global soundSwitch
  3.   puppetSprite(24, 1)
  4.   if rollOver(24) = 1 then
  5.     set the castNum of sprite 24 to 449
  6.     set soundSwitch to soundSwitch + 1
  7.   else
  8.     set the castNum of sprite 24 to 922
  9.     set soundSwitch to 0
  10.     updateStage()
  11.   end if
  12.   if soundSwitch > 2 then
  13.     set soundSwitch to 2
  14.   end if
  15. end
  16.  
  17. on printSound
  18.   global soundSwitch
  19.   if soundSwitch = 1 then
  20.     sound playFile 2, "Printout.iff"
  21.   end if
  22. end
  23.